home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9005a.d64 / f+m adressdatei (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  3KB  |  149 lines
  1. 10 REM    DATEIVERWALTUNG
  2. 20 REM  MIT DEM F+M MANAGER
  3. 30 :
  4. 100 (null)(1270)
  5. 110 SI=54272:POKESI+3,8:POKESI+10,8:POKESI+24,15
  6. 120 GOSUB1160
  7. 130 :
  8. 140 PRINT"[147]"CHR$(142)(null)(12,4)"ADRESS-VERWALTUNG"
  9. 150 PRINTTAB(11)"[196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]"
  10. 160 PRINTTAB(11)"1. DATEN BEARBEITEN"
  11. 170 PRINTTAB(11)"2. DATEI ANLEGEN"
  12. 180 PRINTTAB(11)"3. DIRECTORY"
  13. 190 PRINTTAB(11)"4. DISKBEFEHL/STATUS"
  14. 200 PRINTTAB(11)"5. ENDE"
  15. 210 PRINTTAB(11)"IHRE WAHL ? ";
  16. 220 (null)A$,"12345"
  17. 230 ON VAL(A$)GOTO 270,800,970,1040,1510
  18. 240 REM
  19. 250 REM   DATEN BEARBEITEN
  20. 260 REM
  21. 270 RE = 1
  22. 280 PRINT"[147]"TAB(12)"DATEN BEARBEITEN"
  23. 290 PRINT"  WELCHE DATEI SOLL BEARBEITET WERDEN ?"
  24. 300 PRINT"  NAME  [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166] -> F1"
  25. 310 GOSUB1520:GOSUB1530
  26. 320 S0$="ADRESSEN"
  27. 330 (null)2:(null):(null)3
  28. 340 IFS0$=""GOTO140
  29. 350 (null) S0$:S0$="L"
  30. 360 AR=ASC(LEFT$(IN$,1))+256*ASC(MID$(IN$,2,1))
  31. 370 GOSUB480:GOSUB1220
  32. 380 GOSUB1390:(null)
  33. 390 BE$=LEFT$(S0$,1)
  34. 400 IF BE$="L"THEN:RE=ABS(VAL(S1$)):GOSUB480:GOTO380
  35. 410 IF BE$="S"THEN:RE=ABS(VAL(S1$)):GOSUB530:GOTO380
  36. 420 IF BE$="Q"THEN:(null):RUN
  37. 430 IF BE$="F"THEN590
  38. 440 GOTO 380
  39. 450 :
  40. 460 :
  41. 470 :
  42. 480 FORT=1TO8:(null) RE,T,S$(T-1):NEXT
  43. 490 S2$=S$(0):S3$=S$(1):S4$=S$(2)
  44. 500 S5$=S$(3):S6$=S$(4):S7$=S$(5)
  45. 510 S8$=S$(6):S9$=S$(7):S1$=STR$(RE)
  46. 520 RETURN
  47. 530 GOSUB 730
  48. 540 FORT=1TO8:(null) RE,T,S$(T-1):NEXT
  49. 550 RETURN
  50. 560 :
  51. 570 :
  52. 580 :
  53. 590 FE=VAL(RIGHT$(S0$,1))
  54. 600 IFFE=0THENFE=1
  55. 610 GOSUB730
  56. 620 F$=S$(FE-1)
  57. 630 FOR I=1TOAR:PRINT(null)(13,4)"    [157][157][157][157]";I
  58. 640 (null) I,FE,A$
  59. 650 IFF$<>LEFT$(A$,LEN(F$))THEN NEXT
  60. 660 RE=I:GOSUB480:GOSUB1390:(null)
  61. 670 PRINT(null)(10,24)"WEITER SUCHEN (J/N) ?[157]";
  62. 680 (null) A$,"JN"
  63. 690 IF A$="J"THEN NEXT:GOTO370
  64. 700 I=AR : NEXT
  65. 710 GOTO380
  66. 720 :
  67. 730 S$(0)=S2$:S$(1)=S3$:S$(2)=S4$
  68. 740 S$(3)=S5$:S$(4)=S6$:S$(5)=S7$
  69. 750 S$(6)=S8$:S$(7)=S9$
  70. 760 RETURN
  71. 770 REM
  72. 780 REM   DATEI ANLEGEN
  73. 790 REM
  74. 800 PRINT"[147]"TAB(12)"DATEI ANLEGEN"
  75. 810 PRINTTAB(4)"NAME DER DATEI :[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]:"
  76. 820 PRINTTAB(4)"ANZAHL DER DATENSAETZE :[168][168][168][168]:"
  77. 830 PRINTTAB(4)"(MAXIMAL 1285 DATENSAETZE)"
  78. 840 GOSUB1520:GOSUB1530
  79. 850 S0$="ADRESSEN":S1$="50"
  80. 860 (null)
  81. 870 IF LEN(S0$)=0ORVAL(S1$)=0THENRUN
  82. 880 (null) "I"
  83. 890 (null)S0$,8,16,16,20,16,4,12,10,20,VAL(S1$)
  84. 900 (null) : IF LEFT$(DS$,1)="0"THENRUN
  85. 910 PRINT"DISK FEHLER ":PRINT""DS$
  86. 920 (null)A$
  87. 930 RUN
  88. 940 REM
  89. 950 REM   DIRECTORY LESEN
  90. 960 REM
  91. 970 PRINT"[147]"
  92. 980 (null)
  93. 990 (null)A$
  94. 1000 RUN
  95. 1010 REM
  96. 1020 REM   DISKBEFEHL
  97. 1030 REM
  98. 1040 PRINT"[147]  DISKBEFEHL / STATUS MIT LEEREINGABE"
  99. 1050 PRINT" [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  100. 1055 GOSUB1530
  101. 1060 (null)
  102. 1070 IF S0$=""THEN1090
  103. 1080 (null) S0$
  104. 1090 (null)
  105. 1100 PRINT:PRINTDS$
  106. 1110 (null)A$
  107. 1120 RUN
  108. 1130 END
  109. 1140 REM  SOUND
  110. 1150 REM
  111. 1160 POKESI+4,0:POKESI+11,0
  112. 1170 POKESI,75:POKESI+1,34:POKESI+5,10:POKESI+6,0:POKESI+4,65
  113. 1180 FORK=1TO300:NEXT
  114. 1190 POKESI+7,177:POKESI+8,25:POKESI+12,10:POKESI+13,0:POKESI+11,65
  115. 1200 RETURN
  116. 1210 :
  117. 1220 :
  118. 1230 POKESI,75:POKESI+1,34:POKE54277,10:POKE54278,0
  119. 1240 FORI=1TO4:POKESI+4,64:POKESI+4,65:FORK=0TO200:NEXT:NEXT
  120. 1250 RETURN
  121. 1260 :
  122. 1270 IFPEEK(2)<>33THEN1290
  123. 1280 PRINT(null)(7,24)"DATENSATZ EXISTIERT NICHT! ";:GOTO1300
  124. 1290 PRINT(null)(2,23)"DISK ERROR:";DS$;:(null)A$:GOTO140
  125. 1300 POKESI+4,0:POKESI+5,0:POKESI+6,245:POKESI+4,33
  126. 1310 FORT=10TO0STEP-2:FORR=1TO3:FORI=12TO8STEP-1:POKESI+1,R*I+T:NEXTI,R,T
  127. 1320 POKESI+4,0
  128. 1330 (null)A$
  129. 1340 GOTO380
  130. 1350 :
  131. 1360 REM
  132. 1370 REM
  133. 1380 REM
  134. 1390 PRINT"[147] BEFEHL      [166][166]    AUSFUEHREN -> F1"
  135. 1400 PRINT" DATENSATZ#  [168][168][168][168]"
  136. 1410 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  137. 1420 PRINT"1) VORNAME     [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  138. 1430 PRINT"2) NACHNAME    [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  139. 1440 PRINT"3) STRASSE     [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]:"
  140. 1450 PRINT"4) WOHNORT     [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  141. 1460 PRINT"5) PLZ         [168][168][168][168]"
  142. 1470 PRINT"6) TELEFON     [168][168][168][168][168][168][168][168][168][168][168][168]"
  143. 1480 PRINT"7) GEBURTSTAG  [168][168][168][168][168][168][168][168][168][168]"
  144. 1490 PRINT"8) BEMERKUNG   [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  145. 1500 RETURN
  146. 1510 PRINT"[147]";:(null)"I":END
  147. 1520 PRINT"       ZURUECK MIT LEEREINGABE":RETURN
  148. 1530 PRINT"      EINGABE BESTAETIGEN MIT F1":RETURN
  149.